00100	PROCEDURE MSET;
00200	BEGIN INTEGER BCHR,DUMMY;LABEL MORE;STRING TEM;
00300	DEFINE BSET="1",CR="'15",LF="'12",CRLF="'15&'12";
00400	DEFINE GET(X)="IF EQU(TEM,"X") THEN BEGIN X←CVD(TTYIN(BSET,BCHR));
00500	   GO TO MORE END";
00600	SETBREAK(BET,"←"&LF," 	;"CRLF,"IN");
00700	DO BEGIN TEM←TTYIN(BSET,BCHR);
00800	IF EQU(TEM,NULL) THEN RETURN;
00900	GET(I);GET(J);GET(K);GET(L);GET(M);
01000	OUTSTR("NO SUCH VARIABLE:"&TEM&" TRY AGAIN");
01100	IF BCHR ≠ CR THEN TEM ← CVD(TTYIN(BSET,BCHR));
01200	MORE: END UNTIL BCHR = LF END "MSET;
     

01300	
01400	
01500	For putting LISP expressions out on the
01600	line printer.
01700	(OUTC (OUTPUT LPT:) T)
01800	Then print the output which should have be
01900	the value of a variable.
02000	Then give the line printer back with
02100	(OUTC NIL T)
02200	
02300	
02400	FOR OUTPUT OF FUNCTIONS ON LPT OR DISK
02500	(LPTOUT (GRINL ALLFNS))
02600	(DSKOUT <FILE NAME> (GRINL ALLFNS))